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ALL RIGHTS RESERVED. 
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HED UNDER A LICENSE AND MAY BE USED AND COPIED 
H TERMS OF SUCH LICENSE AND WITH THE 
gpl dha NOTICE. THIS SOFTWARE OR ANY OTHER 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
empokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
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fACILITY: MATH LIBRARY 
ABSTRACT: 


This module contains routine MTHS$HNINT: 
Return the rounded H floating-point argument. 


VERSION: 1 
HISTORY: 


AUTHOR: 
Steven B. Lionel, 26-Jan-1979: Version 1 


MODIFIED BY: 
R. Hanek, 9-DEC-1980 
-SBTTL HISTORY 3; Detailed Current Edit History 
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1-002 MTHSHNINT = return nearest integer as RE 6-SEP-1984 94538:% EATHRTL. SREIMTHHNINT .MAR; 1 . 
8 a -SBTTL MTHSHNINT = return nearest integer as REAL*16 
0 35 p++ 
8 100 ; FUNCTIONAL DESCRIPTION: 
B8 ! 13 Returns the rounded (away from zero) argument. 
Bee 1 5 : 
8 : : 3 CALLING SEQUENCE: 
000 196 ; CALL MTHSHNINT (nearest_integer.wh.r, arg.rh.r) 
0 108 ; 
$809 198 3; INPUT PARAMETERS: 
0000 110; The input parameter is a H floating-point value 
0000 111; and is call-by-reference. 
0000 11¢ 3 
0000 113; 
0000 114 ; IMPLICIT INPUTS: 
0000 115; NONE 
0000 116; 
0000 117 ; OUTPUT PARAMETERS: 
0000 118; e result is passed back as the first argument by reference. 
0000 119; his is in accordance with the system standard for function 
0000 139 3 values greater than 64 bits. 
0000 121; 
0000 \$¢ 3; IMPLICIT OUTPUTS: 
0000 123; NONE 
0000 124 ; 
0000 125 ; COMPLETION CODES: 
0000 126; NONE 
0000 \¢ ; 
0000 128 ; SIDE EFFECTS: : 
444 \¢ : Reserved Operand and Floating Overflow exceptions can occur. 
0000 131; 
0000 13 ie 
0000 13 
0000 134 
0000 135 
OOFC 000 136 eENTRY MTHSHNINT, “M<R2,R3,R4,R5,R6,R7> 
50 08 6C 00 61FD 000 137 ADDHS #0.5, a8(AP), RO : RO-RS = arg + 0.5 
04 14 000 138 BGTR 1$ 3 prengh if positive 
50 08 62FD QOOA 139 SUBH2 #1.0, R ; RO-R3 = arg - 0.5 
54 54 08 99 50 74FD 9006 140 18: EMODH RO, #0, #1, R4, RG : R4-R7 = fraction_part(RO-R3) 
04 BC 54 63FD 0015 141 SUBH3 R4, RO, a4(AP) > Result = integer-part(RO-R3) 
04 0018 16 RET 
001C 14 
001C 144 
001C 145 - END 
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Symbol table ? aes 9 3% YRTMR TL see RC JMTHHNINT .MAR; 1 se 3) 
MTHSHNINT 00000000 RG 01 
errr --+ 
! ;_Psect synopsis ; | 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 <¢ g.} 69 ( 0.) NOPIC USR CON ABS LCL — NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE QOOO001C ¢«¢ 2 e Tet PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
SuHeceueeseuseuceueawcecs$ 
H \ Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 OO A 00-8 00:00:00.54 
pennend processing 112 00:00: 3-86 i eH 
s 1 76 00:00:00.39 00:00: 5-23 
Synbol table sort 0 BB 8866 SP a -00 
40 8880; 0.2 00:00:01.74 
rs table output 1 B08 OOS Bp: 788-00 
Psect synopsis output 3 00:00:00.02 0:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 264 00:00:01.31 00:00:08.32 
fhe working set Limit was 750 pages. 
1486 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space w eseres to hold 1 non-local and 1 Local symbols. 
145 source Lines were read in Pass 1, erogyctta i object records in Pass 2. 
0 pages of virtual memory were used to define 0 macros. 
eS en eT 
H ; Macro library statistics ! 
Macro Library name Macros defined 
_$255$DUA28: (SYSLIBISTARLET.MLB;2 0 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
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